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RARABARAARAAALALAAAASALALALALALS EASA AALS LES AAS ASAE ESR SE ASSES ERE RRR EEE AEE OS 
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DIGITAL EQUIPMEN 1 CORPORATION, MAYNARD. MASSACHUSETTS. 
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FACILITY: EXECUTIVE, SYSTEM SERVICES 

ABSTRACT: SYSCREPRC IMPLEMENTS THE CREATE PROCESS SYSTEM SERVICE. 
ENVIRONMENT: KERNEL MODE 

AUTHOR: R. HUSTVEDT , CREATION DATE: 29-NOV-76 

MODIFIED BY: 


v04-002 wmMC0001 Wayne Cardoza 14-Sep-1984 
Fix LJKO0290 to only increment counts for detached processes. 


v04-001 LJK0290 Lawrence J. Kena 12-Sep-1984 
Do not count process in SYS$GW aNOBCNT cell until all error 
conditions have been tested. This eliminates the need to 
worry about the xJOBCNT cells along error paths. 


v03-037 ACG0432 Andrew C. Goldstein, 9-Jul- tt 17:27 
ace PRCSV _NOPASSWORD- fa RE remove DETACH 
uirement from NOUAF SPEC ane INTER f 4 
Add and initialize JIB$L ORG B BYfLM 


v03-036 PRDO100 Paul R. DeStet ang 27-Jun-1984 
Correct placement ° Label 100018 in radians ACTIVATE. 
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nce J. Kenah 15-May-1984 
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v03-035 Heo: wre 
Make SS$ INSSWAPSPACE nto a useful error return instead 
pe a system crasher. 
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v03-034 MHB0155 Mark Bramhall 1-May-1984 
Propagate PCBS{ViM)_SECAUDIT to new sgead 5 "PCB. 


v03-033 paacene Ron Schaefer -1984 
Put back bogus crenelation of YSSDISK Sag compat ibs ity 
with past history. Remove KPLO110 and KPLO11 


V03-032 KPLO111 Peter Lieberwirth 17-Apr-1984 
The use of JOCSTRNADEVNAA, in V 3-029, { pe device 
string in PQBST_DISK not to have a trai colon. This 
caused PROCSTRT to create an invalid athe ation for 
SYSSDISK. Fix here by re-appending the colon. 


v03-031 MHBO136 Mark Bramhall 12-Apr-1984 
Add support for PRCS$V_CLISPEC. 


V03-030 MHBO134 Mark Bramhall 10-Apr-1984 
Creators w/o JIBs => Username = SYSTEM hecount = binary nulls. 
Account names with a | ading prey null byte are special: 
<0><0>... => <0>< binary nulls stays as is. 
<0><x>... => <x>...< > Others are shifted Left one. 
Move new spawn cl! information to PQB from P1 space. 


v03-029 ws 10 Peter Lieberwirth 31-Mar-1984 
Translate SYSSDISK by ee IOCSTRANDEVNAM, which 
uses STRNLNM. This call replaces obsolete STRNLOG use. 


v03-028 SRBO119 Steve Beckhardt 26-Mar-1984 
Another round in the broken branch grame. 


v03-027 Lageess Lawrence J. Kenah 29-F eb- 1984 
a — the broken branch game again. The various calls 
ts EXE DEANONPAGED need more than word displacement. 


V03-026 HHOO00 Hai Huang 1-Feb-1984 
eee sjgbowide mount support, i.e. initialize mount Listhead 
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v03-025 LJK0259 Lawrence J. Kenah 23-Jan-1984 
Fix incorrect register usage bug in PQB deallocation. 


v03-024 LJK0258 ence 4 Kenah 18-Jan-1984 
ae bug a. . 5 by LJKO257. Make JIB creation code handle 
the case of the swapper, a process that does not own a JIB. 


v03-023 ACG0385 Andrew C. Goldstein, 11-Jan-1984 18:39 
Make MAXDETACH and MAXJOBS JIB fields words 


v03-022 LJK0257 Lawrence J. Kenah 21-Dec-1983 
Make gpenges to fuppert | larger PQB. Remove gupport f os ACCOUNT 
and USERN fie £2, 10 Pl space. Use STRNLNM to pic 

translation of SYSSDISK. Perform general cleanup. 


v03-021 TMKO001 toed Kotz 12-0c t-1983 
aee greueta (job-wide (og cal name table creation quo 

rocess quote block and as ? quota in the quia “list 

ey Ys CREPRC. No special processing is required for this 
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“SEP-1984 09: SYS.SRCIS SCREPRC..MAR; 3 (1) v0+ 
new quota item. 
oe oy A cana to Meee Se use. Seti 
V03-019 RASO181 Ron 


ation of Sees tieor, syssourput a See SE RAOR, 


Convert crea 
and SYS$0 DISK logical names to use SCRELNM. 
v03-018 stag ps Wayne Cardoza 01-Aug-1983 
New item List codes for logical name attributes. 
V03-017 ACG0347 Andrew C. Goldstein. 1-Aug-1983 13:21 
Fix register use bug in ACGO 
v03-016 yacoese Wayne Cardoza 28-Jul-1983 
Move bumping of interactive and batch counts here. 
v03-015 wMC0006 Wayne Cardoza 05-JUL-1983 
No privilege needed for interactive subprocess. 
V03-014 CWH1010 CW Hobbs 20-Jun-1983 
Add a comment which calls attention to an order dependency 
in the call to EXESIPID. TO_EPID. 


v03-013 §C60339 Andrew C. Goldstein, 9-May-1983 16:26 
ropegate default file protection in PCB; copy extended 
ay ts list to created process. 


v03-012 yRcesee Wayne Cardoza 27-Apr-1983 
Change PSECT of detach code. 
ss. NSSWAPSPACE for no swap space. 
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v03-011 uncoeee Wayne Cardoza 14-Apr-1983 
New STSFLG flags. 
v03-010 wMc0003 Wayne Cardoza 31-Mar-1983 
2 Second half of the detach changes. 
v03-009 wmc0002 Wayne Cardoza 10-Mar-1983 
Liberalized rules on creation of detached processes. 
v03-008 AcG0s18 Andrew C. Goldstein, 88-Mar-1983 20:27 
: Initialize new ARB fields in created process 
6 v03-007 MTROOO1 Michael T. Rhodes 28-F eb-1983 
6 Change the privilege requirements for Setting the initial 
6 process state flags to require only the creator to have 
6 privilege. 
4 v03-006 CwH1002 CW Hobbs 24-F eb-1983 
6 Create new extended: process ident PCBSL_EPID. Return the 
2 extended pid t o pees r argument if Specifed. The 
extended pid of Mg u parecese Owner propagates to the 
8 new PCBSL_EOWNER field 
7 v03-005 CwH1001 Cw Hobbs 15-Feb-1983 
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Change from sequential to round-robin PIX allocation. 


v03-004 wMC0001 Wayne Cardoza 18-0¢ t-1982 
Add support for item list argument for a. file control. 
v03-003 LJK48272 Lawren . J. Kenah Aug=1982 
nsure thes PCBSL_JIB lear before silaces ng PQB 
n case PQB alloc cst on fa ls. Error code assumes that 
contents of JIB i are eatways valid if nonzero. 
Remove SPRDEF and $SSDEF 


V03-002 LJK0169 Lawrence -Jun-1982 
Insure that revised CPU Unite oy stored in PQB along error 
paths. Use ROTL to perform unsigned divide by two. 
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DECLARATIONS 19-3 b= 1382 83 30:08 LEYS SRCISYSCREPRC_MAR: 3 ” (3) 
4g .BYTE LIM ; COUNT LIMIT 
4 “BYTE SRCa=- SOURCE OFFSET FROM AP 
48 “WORD PQB$T ‘DST DESTINATION OFFSET IN PQB 
49 “ENDM  MOVSTRING 
i : EQUATED SYMBOLS: 
i e 
0000004 22 PIDADR=4 : PID ADDRESS 
itd 08 é IMAGE= + IMAGE NAM 
999 ¢ INPUT=1 : INPUT LOGICAL NAME DESCRIPTOR 
1 : OUTPUT=16 + OUTPUT LOGICAL NAME DESCRIPTOR 
0000014 00 59 ERROR=2 + ERROR LOGICAL NAME DESCRIPTOR 
0000018 000 60 PRVADR=24 + PRIVILEGE ASK K ADDRESS 
000 or 00 61 QUOTA=2 : QUOTA BUFFER POINTER 
0000020 000 62 PRCNAM= t PROCESS NAME DESCRIPTOR 
Stes $883 GEE Betis {i lepay 
= Py 
0000002c 0000 265 MBXUNT=44 + MAILBOX UNIT NUMBER 
00000036 900 66 STSFLG=48 + STATUS FLAG MASK 
00000034 900 67 ITMLST=52 : ITEM LIST 
00000000 0000 $9 PQL_V_DEDUCT=0 : DEDUCTIBLE QUOTA FLAG 
ARG= : ARGUMENT NUMBER FOR THE ITEM LIST 
0000000D 00 20 ITMC ST RG=13 T 
FFFFFFFC 9000 2 CURPCB = -4 ; OFFSET FROM FP TO SAVED R& 
$383 
44 75 ; OWN STORAGE: 
itd 8 ’ 
00000000 A: PSECT YSEXEPAGED,BYTE : PAGEABLE PSECT 
0000 80 ASSUME PRCSV_SSRWAIT EQ 0 
000 1 ASSUME PRCSVTSSFEXCU EQ 1 
900 : ASSUME PRCSV~PSW EQ 2 
00 ASSUME PRCSV“NOACNT EQ 
0000 4 ASSUME PRCSV"BATCH £0 4 
0 5 ASSUME PRCS$VHIBER EQ 5 
00 : ASSUME PRCSV"NOUAF EQ 6 
00 ASSUME PRCSVNETWRK £0 
000 : ASSUME PRCSV"DISAWS £0 8 
0 ; SSUME PRESV-DETACH EQ 
0 ASSUME PRCSVTINTER £2 10 
0 91 ASSUME PRCSV~IMGDR Pp €0 11 
0 36 ASSUME PRCSVTCLISPEC EQ 12 
0 93 ASSUME PRCSV“NOPASSWORD EQ 13 
95 STSFLGTBL: ; TRANSLATION TABLE FOR STATUS FLAG BITS 
% STSFLAG SSRWAIT > BIT 0 => RESOU 
3 STSFLAG SSFEXCU : BIT 1 => SVSTER SERVICE FAIL EXCEPTION 
4 3 STSFLAG PSWAPM,PSWAPM : BIT j => PROCESS SWAP MODE 
6 9 STSFLAG NOACNT .NOACNT : BIT 3 => NO ACCOUNTING MESSAGE 
STSFLAG BATCH, DETAC : BIT 4 => BATCH 
A 2 STSFLAG HIBER : BIT 5 => HIBERNATE BEFORE CALLING 


S2% 


' 
i 
| 
~ w | 
a 
ot ' 
oe we | 
a Ww 
@ = = 
a ——- w o 
«> > = w 
== > od = ao) 
7.) a 4 - wv 
vo <« ow ao] 
mm O22 —3 n ao] A 
so en “uO < ea ne 
a@aaoc iw “oO a —Zz 
=< =< w vo =x —~2 
oct Zw we Vv x 30 
o- =x © ax 2 c cw 
wow = "na ” ae ow 
rc Owe = ed ~ wt 
oa 9 bY ae ee 2 tt 
>w = ea >s>awtizk<act own 
a $ ——~ —+ W .' cw 
ou =F be uu w zen | 
ww ~ 2°sS v wala | 
o> ssw << wn oO -ow “> 
ew « @iataew won « www 
ze a+ Pte tte a >= + 
ve <q-aw <« ” 
ae Or oore-ZEaeOr VY ew 
ZH ZOww-A2H 2 ” te€ 
>: IFO o— —— © 
~w AAAAw & _c pea 
=x<> AAAANKH HHO <« eno ac Ww 
<«wn nun w &< uw 
Sus o-wumMac « ctw oo 
OrODOmrnrnrn—w VY cws> #4 
2 too 1m 
@-.o bob hte here w ese ww > 
Tro Hee DOE “ivuAe Ww 
oe se @OOMwDoOoOoOoaoaz - => <@ 
or _-— wo 
wer wereterterertaretetasse eeV oe 4 
“7 of ww v 7 
—O = : oan 
oo =] ao a« 
w w s 
ww a 
ao00 w = A 2 
on ” zw « 
—— p= | amw « 
88 we -— 
aa ws 4 
uw <a@ 25> =a 
mw =z <c- oi! > 
i) vw > nor w 
or < ” avi wi o& 
-—— - - act a=x«5 4 # 
uw o —_ — =< > w 
a eo wu - 3Yu | 
. A => Zzue*sw a 
um + wet w @0Oa 0 u& 
~w 2zesz = @ =x -- u A 
_ — Ie w —- - ” =!) = 
orn Oo «xe > ws <« 2 
a owe 2 —+ wo ne >. - a 
za - a -Z -<ov <« =~ ™ 
w” a oO 
VVIVV9909N08rF- UM - 
<«<aq<a4<aaaaaw Zu _ ww o& Oo 
w ee ee ee ee Pe Pe —O AHswwEe £F - x 
vw ’2UMNUMUWieue ©§ BO WerrD a Ww ¢ 
_ MMMMMYYNYVY OC zur>On 2 Ww 
> ae ee eel el el eel eel |, eS 8 hg) <« iu 
4 AWMMWMNMNNO WHE Bee eet . 
w z Ow ‘ <= - « 
” vv «wt —e J 
o a Jj —- @ - 
= + wit 23 oOo e- <« 
w uu <3 <« oO a 4 
” e w 
= ” sore OC ee ee 
PYTWMNOR. DOOM CUM TMNOR. DOOKNUMTN Or 
(7) fe ewe ee | | ed od eh eh ek eh ee ee eh ae DD DD 
” ll lll a ll ee) 
ww 
33 
= VUWOWT OO CVV VYVVUUNDOOOOCOw-T + 
A — OOO RR NIIP ST ST 
<I BOOOCOCOCOCOCOCOOCCOCOCSCOOOCOOOOOoOoOoOoSooe 
nme | SOoCSCCOCOCOOOOCOCOOCCOCOOOOSOoOoOoOoOoO 
| oe o 
wo w Moo ounm 
aw o MNO ovo 
L¥%Aa So -- o =- 
So ooo Ono 
So MNO w Tro 
o -- o So 
So Moo -uO 
o MNO Owno 


0 
56 


So 
oO 
vy 
w 
ud 
(=) 
w 
wT 
™N 
o 
w 
o 
wv 


SYSCREPRC 
v04-002 


PPP PPP PPE PLP LESTE SEE DD 


AAAN.AAAAWAIAANNAAIAI WANN 


WAWAIAWIWAI AW AA AWA WINN AAA AIA AAA AAA AAW 


PAA AAMNMMANMAAA EPP PERE 


oo 
oO 
m 
w 
nw 
nm” 


WANNA AAWAWWr 


FW O ODNAUN EWN 0 OONAUE WN OOD NOUS W000 


o 
» 
m 
>~< 


STEM SERVICE 16-SEP-1984 AX/VMS Macro V04-00 Page 
TE PROCESS SYSTEM SERVI 12 ~SEP=1 1984 89 3908 Uys. SRCISYSC SCRE EPRC.MAR;3 §; 
~SBTTL EXESCREPRC = CREATE PROCESS SYSTEM SERVICE 
FUNCTIONA tat ad 
EXESCREPRC C CREATES A NEW PROCESS ACCORDING TO THE 
SUPPLIED PARAMETERS. THE NEW PROCESS MAY BE MET THER A SUB-PROCESS 
OR AN INDEPENDENT, BETACHED PROCESS. 
CALLING SEQUENCE: 
CALLG ARGLIST,EXESCREPRC 
INPUT PARAMETERS: 
PIDADR(AP) = ADDRESS AT WHICH TO RETURN PID OF CREATED PROCESS 
IMAGE(AP) = ADDRESS OF IMAGE NAME STRING DESCRIPTOR 
INPUT(AP) = ADDRESS OF INPUT NAME STRING DESCRIP 
OUTPUT(AP) = ADDRESS OF OUTPUT NAME STRING DESCRIPTOR 
ERROR(AP) = ADDRESS OF ERROR LOGICAL NAME STRING DESCRIPTOR 
PRVADR(AP) = ADDRESS OF PRIVILEGE MASK FOR CREATED PROCESS 
QUOTACAP) = POINTER TO QUOTA BUFFER 
PRCNAM(AP) = ADDRESS OF PROCESS NAME STRING DESCRIPTOR 
BASPRICAP) = BASE PRIORITY FOR CREATED PROCESS 
UIC CAP) - UIC FOR CREATED PROCESS(0 => SUB-PROCESS) 
MBXUNT(AP) = MAILBOX UNIT NUMBER FOR TERMINATION MESSAGES 
STSFLGC(AP) = STATUS FLAG SETTINGS FOR CREATED PROCESS 
ITMLSTCAP) = ITEM L 
R4 = ADDRESS OF CURRENT PROCESS CONTROL BLOCK 
BIT MEANING 
0 RESOURCE WAIT DISABLE 
1 SYSTEM SERVICE FAIL EXCEPTION ENABLE 
¢ PROCESS SWAP MO 
ACCOUNTING MESSAGE DISABLE 
4 BATCH INDICATOR 
5 HIBERNATE BEFORE CALLING INITIAL IMAGE 
6 Abas LOGIN VERIFICATION FOR DETACHED 
4 NETWORK INDICA 
8 DISABLE WORKING. SET ADJUSTMENT 
9 DETACHED 
10 IN TERACTIVE. ame TEATS 
11 IMAGE DUMP ON FATAL ABORT 
12 PASS ON CLI SPECIFICATIONS 
OUTPUT ‘parse: 4 
MPLETION STATUS CODE 
aP1DADR (AP) - PROCESS ID (PID) OF CREATED PROCESS 
COMPLETION CODES: 
SSS_NORMAL = SUCCESSFUL COMPLETION 
SS$_ACCVI - ACCESS VIO 
SS$_DUPLN = DUPLICATE PROCESS NAME 
SSS_EXQUOTA = EXCEEDED QUOTA 
SSS_INSFREM = INSUFFICIENT en AVAILABLE 
SSS_IVLOGNAM - INVALID LOGICAL NAME 
SSS_IVQUOTAL - INVALID QUOTA tist 
SSS_IVSTSFLG = INVALID STATUS FLAG ARGUMENT 
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SYSCREBRC CREATE PROCESS SYSTEM SERVICE 1 =SEB-1984 01:50:48 AX/VMS Macro V04-00 Page 9 $) 
v04-002 EXESCREPRC = CREATE PROCESS SYSTEM SERVI 14-SEP-1984 09:21:06 CSYS.SRCIJSYSCREPRC.MAR; 3 (1) ve 
44 $ : SS$_NOPRIV = NO PRIVILEGE FOR SPECIFIED OPERATION 
44 g : SIDE EFFECTS: 
44 : IF NO ERRORS ARE DETECTED, A NEW PROCESS WILL HAVE BEEN ACTIVATED 
44 30 : AND MARKED NON-RESIDENT. THE INITIAL INSWAP FOR THIS PROCESS 
44 391: WILL BE FROM THE SHELL PROCESS. EXECUTION FOR THIS PROCES 
O44 36 : BEGINS IN THE ROUTINE EXESPROCSTRT WHICH WILL MOVE THE INFORMATION 
44 393; FROM THE PROCESS QUOTA BLOCK TO THE APPROPRIATE LOCATIONS 
044 394: IN THE PROCESS CONTEXT. CONTROL WILL THEN BE GIVEN TO THE 
44 395: SPECIFIED IMAGE. 
44 38 : 
fin 
044 38 .ENABL LSB 
044 400 EXESCREPRC:: ; CREATE PROCESS SYSTEM SERVICE 
OFFC 0044 401 «WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> : SAVE ALL REGISTERS 
54 ODD O46 40¢ PUSHL R4 ; SAVE’ CREATOR'S PCB ADDRESS 
04 AC bp 04 40 PUSHL PIDADR(AP) : SAVE PID RETURN ADDRESS 
07 13 0048 404 BEQL : NONE, NO PROBE 
04D 405 IFNOWRT #4,a(SP),20$ : CHECK FOR WRITABL 
5B 28 AC 09 054 406 10$:  MOVL IC(AP) R11 : FETCH UIC FOR CREATED PROCESS 
e8 13 0058 407 BEQL $ : NOT SPECIFIED 
00sec ¢46 «= 5B) Cés«O0S5A—s 408 CMPL «R11, PCBSL_UIC(R4) : IS IT SAME UIC AS CREATOR 
2 13 ON5F 409 BEQL 30S : NO PRIVILEGE NEEDE 
0061 410 IFPRIV DETACH, 30$ t FULL DETACH PRIVILEGE 
0067 411 IFPRIV CMKRNL, 30$ : OR CHANGE MODE TO KERNEL 
50 0000°8F 3¢ 006D alg MOVZWL #SS$_NOPRIV,RO : NO, SET ERROR CODE 
04 a07§ 413 15$: RET + RETURN 
50 0000'8F 3¢ 0073 415 208:  MOVZWL #SS$_ACCVIO,RO : SET ERROR CODE FOR ACCESS VIOLATION 
04 0078 416 RET : RETURN 
9079 418 ; FAST ALLOCATION OF PQB FAILED. DO IT THE HARD WAY 
O85E 30 0079 420 26$: BSBW ALLOCPOB : ALLOCATE ANOTHER PQB 
59 52 dO O07C 421 MOVL  R2,R9 : ASSUME THAT IT SUCCEEDED 
39 5 OO7F 4 g BLBS RO,50$ : RESUME CREATION IF SUCCESSFUL 
0789 «(31 0 . é ; BRW ABRT2 + ERROR PATH FOR PQB ALLOCATION FAILURE 
530 ac 09 €1 5 6425 298: BBC #PRCSV_DETACH, STSFLG(AP) , 30$ 
. ‘ c 4 50 § A 426 MOVL PCB$L_OIC(R4)<R11 : DETACHED PROCESS (SAME UIC) REQUESTED 
Q00000000'EF 16 OOBF 427 308:  JSB EXESACLOCPCB : ALLOCATE PCB, WAIT IF NECESSARY 
DA E9 0095 428 BiBC 0,15 t RETURN ERROR IF FAILURE 
SA 0 0098 429 MOVL 3-10 : SAVE ADDRESS OF NEW PCB 
OC AA 01146 BF 00 6€ € 0098 430 MOVCS #0, (SP) ,#0,#<PCBSC_LENGTH-12>,12(R10) _; CLEAR PCB 
4 FC AD DO O0OA4 431 MOVL.  CURPCB(FP) ; RESTORE CREATOR PCB ADDRESS 
F7FFFFFE 8F CB OOAS 4 BICL3 #*C<PCBSM_SECAUDIT>,- : PROPAGATE (ONLY) MANDATORY AUDITING 
so *MoooGb'sE or BRS SE enaue SERENE BGS casehh— TS ER ve METRE Otte 
BE 1D 4 “ BVS oe - : : OUT IF LINE IF FAILURE 
i 4 : INITIALIZE NEW PCB 
5 5 439 50s TSTL = RV : IS THIS A DETACHED CREATE? 
ee ee ae OR 
3680 CA 3 D (4 442 MOVL  R2,PCBSL STs ats) : SAVE POINTER TO JIB IN OFFSPRING 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE SEP-1984 74 X/VMS Macro V04-00 Page 10 SYS 
Mite EXESCREPRC = CREATE PROCESS SYSTEM iad = gee = 1382 84 30: 8 a S.SRCISYSCREPRC.MAR; 3 ° (1) v04 

44 A2. B C9 = 443 INCW J188¥ PRCCNT(R2) ADD ANOTHER SUBPROCESS 

3C A2 yewer ‘ 9 tte SUBL gyurst. SHELLPFIL,JIBSL PGF FLCNT(R2); CHARGE FOR SHELL PAGES 
7 D4 4G BLSS 2 BR IF OUT OF PAGE FILE QUOTA 
46 A2 44 A2~ Bl D6 rr | CMPW {} SW_PRCCNT(R2) ,JIBSW_ pRCLIM(R2) ; OVER LIMIT? 
4A 1B O0DB 44 BLEQU ; IF LEQU NO, CONTINUE 
50 00008 ; DD 44 238: MOVZWL #SS$_EXQUOTA,RO + SET ERROR STATUS 
758 : rf: 4$: BRW ABORT 3; YES ABORT 
nn 18 E re 51$ JSB ERESALLOCIIC ; ALLOCATE JIB FOR ryret PROCESS 
F4 E eB 128 BLBC RO ¢¢ ; BR IF NO SPACE AVA 
6 DE E 45 MOVAL Jib ete Hag tt heels ) : INITIALIZE MOUNT LISTHEAD 
gs A 43 F tee MOVAL 2183, MTLFL(R2) j OSL ATLBY the ) 
0080 CA D FS 4) MOVL R2,PCB$L_J18(R16) | SAVE POINTER TO JIB 
FA re 3 Maat USERNAME AND ACCOUNT FIELDS OF THE CREATOR'S JIB ARE MOVED INTO THE 
FA re : 8. T REST OF THE JIB IS CLEARED. THE TWO ASSUME STATEMENTS INSURE 
OFA 459 ; NHAT THE JIB LAYOUT ALLOWS ALL OF THESE SHENANIGANS TO BE ACCOMPLISHED 
are rhe ; WITH A SINGLE MOVCS INSTRUCTION. 
ae $66 ASSUME JIBST_USERNAME EQ 13 
aoe rhe ASSUME SIBST™ ACCOUNT EQ <12 + JIBSS_USERNAME> 
53 0080 C4 f ora 465 MOVL CEgeL J 1CRS) LAS ; GET JIB ADDRESS OF CREATOR 
05 1 of 188 BNEQ ; JIB EXISTS, GO USE IT 
101 rh 3; THE ¥ APPER PROCESS DOES NOT HAVE A JIB. LOAD R3 WITH THE ADDRESS OF SOME 
! ! rt} ; TEXT FIELDS THAT LOAD THE NEW JIB WITH A DEFAULT USERNAME AND ACCOUNT. 
53 FFOB CF 9E 101 t39 vag DEFAULT oer hin plied USERNAME,R3 ; GET STRING ADDRESS 
14 2 O01 ‘ 47g 538: move #<JIBSS-USERNAME + JIB S ACCOUNTS = 
OC A3 1 47 J1B$T SOSERNAME (R3) , - 3 CREATOR'S JIB IS SOURCE 
g 138 474 yO ; FILL THE REST WITH ZEROS 
0068 8F 108 475 #<JIBSC LENGTH=- to 
OC A2 19 478 JIBST_USERNAME (R 3; NEW JIB IS DESTINATION 
11 278 3; Check the preeunt name for a leading binary null. Account names with 
11 479 ; a leading binary null are special, reserved to DIGITAL, account names. 
11 4 ? 3; The following account name combinations are possible: 
11 481 ; <x>.0. Normal account name; left as is. 
11 4 é : <0><0>... Initial startup account name; left as is 
1} ’ i 3 ><x>... Special account name; shifted left one ploce. 
52 0080 CA 11 485 MOVL PCBSL_JIB(R10),R 3 Rereddress offspring's JIB 
3 A2 < 115 4 6 TSTB jest “At POUT Red : A leading binary ane byte? 
0D 1 11 4 BNEQ : Nope, leave account name as 
19 A o 111A 4 3 TSTB giesT. ACCOUNT+1(R2) 3 Anything after the null to shite? 
1 11D 4 BEQL 3; Nope, leave account name alone 
2c O11F 490 mMOovCS Hest. ACCOUNT ; Move all but the first byte 
19 A 1 491 1B$T RECOUNT #1 (A2) - 3; of the account name, 
1 49 #*a' : padding with a blank, 
124 «449 au1ets ACCOUNT - 3 into the full 
18 A 3 494 J1B$T_ACCOUNT (R2) ; account name 
10 AA 10 AA OE 127 4 $ 56$ MOVAL PCBSL LAS TOFL (819) . PCast L_ASTQFL(R1 ; ; SET UP AST Q HEADER 
eM ao Ot Bh BE Eee SEERA STEN aHByeSMSTORLSRT sey at ay ewmuss 
01046 CA 0104 CA ODE 1 4 3 MOVAL PCBSL_LOCK BATT earu cat ; SET UP LOCK Q@ HEADER 
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INITIALIZE QUOTA BUFFER 


nt (SP) #0, #<POBSC_LENGTH=12>,12(R9) 
LIM=15,- MOVE PROCESS 
ING, C=PRCNAM, - F FROM PROCESS 
DST=IMAGE + TO IMAGE SLOT 
POBST_IMAGE(R9) ,R6 + FETCH STRING 
60$ ; NO PROCESS 
INCL LUDE COUN 
6, PQB$T IMAG (R9), PCBST_LNAME (R10) 
Pobst IMAGE 7 CLEAR IMAGE 
CURPCBLE FP) a ; RESTORE PCB 
aPCBSL “PUD ERA) , RO ; GET PRIVILE 
aR : ASSUME SAME 
PRVADR(AP) ,R7 ; FETCH ADDRE 
+ NONE SPECIF 
(R7), 1258 ; ERROR IF NO 
(Re : FETCH NEW P 
SErPRV, 70$ ; SKIP MINIMI 
+ INVERT FOR 
RT. Ri ; 
it Re ; MINIMIZE PR 
R R : ER I 
*PQBSQ_PRVMSK(R9) ; VIL 
10.45 BASPRI (AP) ,RO ; ESIR 
{,R : TO 
Se tPRL 0$ ; NIMI 
pease _PRIB(R4) : SEM 
1068 ; LUE, 
teats _PRIB(R4) ,RO ; CALL 
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YSTEM SERVI 19-8 eats 7 83:3 : ‘oe SYS. SRCISYSCREPRC.MA R;3 ee v0 

PCBS LOCKaFL (R10), ,PCBSL_LOCKQBL (R10) 

CURP RESTORE CREATOR PCB ADDRES 

PCBS -PRIVEARBSL RIGHTSLIST+8(R4) ,R6 GET EXTENDED RIGHTS LIST 

pres DEEPROT(R ¥,PCBSL_DEFPROT (R10) COPY DEFAULT FILE PROTECT! 

#31,SP,57$ ; BRANCH IF NOT INITIAL CREA 

sysfGy_ F ILEPROT P Bs, ADE PROT (RIO? SET SY SYSTEM FILE PROTECTION 

HARB C" LENGTH eta V(R4) ,PCBSQ_ pRivikt ) ; COPY ENTIRE ARB 

PCBS$Q_PRIV RIO) te ARB RIOD SET’ ADDRESS OF ARB 

REE cORS AT GRTPE FAR 

PCB$Q-PRIV+ARBS$L_RIGHTSLIST(R10) ; ADDR OF LOCAL RIGHTS DESC 

PCBS =PRIVeARase LOCALRIGHTS(R10),= 

PCBS$Q~PRIV+ARBSR “RIGHTSDESC#4¢R105 : ADDR OF LOCAL RIGHTS LIST 

R ; ; SEE IF EX TENDED RIGHTS LIS 

PCB$Q_PRIV+ARBSL_RIGHTSLIST+8(R10) > MARK NONE ALLOCATED YET 

ACL$W~SIZE(R6) ,RT + GET SIZE 

EXE SACLOCBUF : AND ALLOCATE A NEW ONE 

RO, 58 + KEEP GOING IF SUCCESS 

ABORT + ABORT CREATION 

R2.R7 : SAVE ADDRESS 

R2,PCB$Q_PRIV+ARBSL_RIGHTSLIST+8(R10) : STORE IN PCB 

R1.(R6), TR7) : COPY RIGHTS LIST CONTENTS 

12(R7) ,4(R7) : § CRIPTOR POINTER 

MBXUNT (AP) ,PCBSW_TMBU(R10) + TERMINATION MAILBOX UNIT 

SWPSGL_SHELLSIZ, PCBSU, PPGCNT (R10) : AND PROCESS PAGE COUNT 


LEAR QUOTA BUFFER 


;_C 
ME TO PQB 1g VALIDATE 
ME TOR 


DESCRIP 


E 
ERS BASE 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE =SEP=1984 :48 YAX/VMS Macro V04-00 Page 1 SY 
Mita EXESCREPRC = CREATE PROCESS SYSTEM SERVI 19-SE5- 1384 83: 39: :0 Heys. SRCISYSCREPRC.MAR; 3 . tf) vo 
f AA 0 3 2 7 100$: Move R ,PCBSB -PRIB(RIO) ; SET IN NEW PCB | 
MOVB PCBSe PRI(R10) : AS BOTH CURRENT AND BASE PRIORITY 
oobe CA B OD A MOVL : j PCBSC_UIC(R10) ; STORE UIC FOR NEW PROCESS 
1171 F 56 BNEQ =: 1108 BR IF IT WAS SPECIFIED 
008¢, CA 008¢ C4 \ MOVL pcos WiC (Ra) .PCBsL UIC Rt ) ; OTHERWISE USE UIC OF CREATOR 
AG D MOVL  PCBSL~PID(R4) PcBst OWNER(R10) : AND INDICATE SUBPROCESS 
4 NA 64 AG p MOVL PCBSL-EPID(R4S ,PCBSC_EOWNER(R10); AND ALSO COPY THE EXTENDED PID 
57 00000086" F 4 64 110$:  MOVZWL SCHSGL_MAXPIX,R7 ; INITIALIZE INDEX FOR NAME CHECK 
6 0D 4 65 TSTL) OR ; ANY LOGICAL NAME FOR NEW PROCESS? 
: 1 48 66 BEQL 1408 ; NO, SKIP SEARCH 
58 000000 0° FFA D 4p 67 120$: MOVL  @SCHSGL_PCBVECCR7],R FETCH A PCB ADDRESS 
OOBE CA OBE (8 8} § CMPW PC W_GRP(R8) ,PCBSW_ Bae cht} ; SAME GROUP? 
é ¢ BNEQ 1 2] TRY ANOTHER 
70 AB 70 AA 56 : ‘ 0 CMPC3 RO, PCBST_LNAME(R10), pcast -LNAME (RB) : COMPARE NAMES 
QF 2 026 71 BNEQ 6 ATCH, CONTINU 
50 0000'8F 3¢ 66 re MOVZWL ws DUPLNAM,RO : Ser MOUPLICATE NAME CODE 
0502 1 3 ? BRW ort ; AND ABORT CREATION 
0661 31 oF 75 125$: BRW ACCVIO ; GIVE ACCESS VIOLATION AND ABORT 
7 id: 1 6s: BUG CHECK CKRPENPTY, FATAL ; OUT“OF=LINE KRP ALLOCATION BUGCHECK 
D5 57 £5 0275 577 1308: SOBGTR R7,120$ ; CONTINUE SEARCH 
7 A: 140$: MOVSTRING LIM=255,- ; MOV IMAGE NAME TO BUFFER 
7 ? SRC=IMAGE ,- : FROM IMAGE STRING DESCRIPTOR 
027 80 Ds T= IMAGE ; TO POBST IMAGE 
027F 1 MOVSTRING LIM=255,- ; MOVE INPOT LOGICAL NAME TO BUFFER 
7F Be SRC=INPUT,= ; FROM INPUT STRING DESCRIPTOR 
7F C458 DST= INPUT ; r9 POBST_INPUT 
86 ae MOVSTRING LIM=255,=- 3; MOVE OUTPUT LOGICAL NAME TO BUFFER 
86 585 §RC=0UTPUT,- ; FROM OUTPUT | STRING DESCRIPTOR 
5 : Dst=9 TPUT ; TO POBST OU 
D MOVSTRING L1mM=255,- 3 MOVE ERROR” (OSICAL NAME TO BUFFER 
D 8 SRC=ERROR, = : FROM ERROR STRING DESCRIPTOR 
8p 89 DST=ERROR ; TO POBST_ERR 
46 Ad 90 0294 591 MOVB —#*B1111,POBSB_MSGMASK(R9) ; DEFAULT MESSAGE FLAGS = ALL OF THEM 
03 SE 1 é 98 3¢ BBC #31,SP,1401$ ; if SYSTEM SPACE STACK 
00A6 «6031 «029c)~—Cf «59 BRW 1 ; THEN NO P1 SPACE DATA BASE AVAILABLE 
BB Hi 34 1401$: PUSHR #*M<RO,81,R2,R3,R4,R5> : SAVE MOVC REGISTERS 
Al 96; 
Al 39 : TRANSLATE SYS$DISK USING LNMSSEARCH_ONE. 
Al 38 ; THIS TRANSLATES EXACTLY ONCE AND PASSES THE EQUIVALENCE STRING TO 
Al 599 : THE CREATED PROCESS. COMPLETELY BOGUS RESULTS WILL OCCUR IF THIS 
Al 6 : : TRANSLAT LON 1S NOT EITHER A SYSTEM-WIDE LOGICAL NAME OR A PHYSICAL 
Al 601; DEVICE N THIS TOTALLY BOGUS IMPLEMENTATION MUST REMAIN THIS WAY 
at 6 ¢ : FOR COMPATIBILITY WITH PREVIOUS RELEASES. 
Al 4 : ALLOCATE A KERNEL REQUEST PACKET TO CONTAIN THE EQUIVALENCE STRING 
Al 5 ; (AND LOGICAL NAME WORK AREA) FOR LNMSSEARCH_ONE. 
57 0 "GF 96 O2Al 6 GPCTLSGL KRPFL,R7 : GET KRP LISTHEAD 
6 B7 OF 02A8 REMQUE a4(R Rb ; GET A KRP 
3 1D OAC BVS 268 ; BUG CHECK IF ALL ARE IN USE 
6 DD Q2A PUSHL §R ; SAVE POINTER TO KRP 
"EF ¢ B 1 MOVZWL EXESGQ_SYSDISK,RO ; ay DESERIPTION OF "'SYSSDISK" FOR CALL 
1 4" EF p B 1 HOV EXE$GQ SYSDISK#4,R1 
52. FOOE CF 3C O2BE 61 MOVZWL LNM_TBC,R ; GET DESCRIPTION OF TABLE NAME 


BSS- eti- ~TABLE>,= 


143$: movcs ; MOVE AS MANY FIELDS AS SPECIFIED 
FROM P1 SPAC 


: epneine OPTIONAL FIELDS AS NEEDED 
: THE 


astiscr_ CLINAME ,- 


7<b0BSS_ CLI_NAME += 
POBSS-CLI-TABLE+- 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE =SEP=1984 48 $ Macro V04-00 Page 1 
Mba EXESCREPRC - CREATE PROCESS SYSTEM SERVI 19- SEE =] 3b 89; 39:4 06 ¥Oys SRCISVSCREPRC MAR: 3 pa 
FD6D CF pO O2c 1 MOVL LNA TBL+4, R 
88 1 §f 5 | 18 MOVZWL ATTR : CASE_BLIND AND U R, MODE 
00000000 ' EF CD 1 J$B eis ARch PONE + TRANSLATE eyeshT EK’! HAS PCB) 
E D 1 BLBS x : SUCCESS! 
0000' 8F 8 D6 61 CMPW -#SS$_NOLOGNAM + NO TRANSLATION IS OKAY 
1 ‘ DB BNEQ ° : ELSE ABORT 
1 1 DD BRB 1406$ + GO RETURN KRP 
04 A A O2dF 6 1 1405$: MOVZBL LNMXST XLATION(RG),RO 3 GET SIZE OF TRANSLATION 
05¢8 C9 2 0 E3 ¢ MOVE.  RO,PQBST_DISK(R9) STORE COUNT IN P 
Ag cB 6 MOVC3 RO, < NAXST s, XLATION#1>(R6S ,= 
9 EC 624 <POB$T_DISR+1>(R : COPY DEVICE NAME TO PQB 
0 1 D6 EF 5 14068: MOVL #1, + INDICATE SUCCESS 
E p F g 141$: MOVL (SP)+,R6 + RESTORE KRP POINTER 
04 87 66 ; F INSQUE (R6),a4(R7) + RETURN KRP 
59 E F9 6 2 LBC RO, 146 + ABORT IF ERROR 
FC 630 ; MOVE MINIMUM AND MAXIMUM AUTHORIZED SECURITY CLEARA NCE RECORDS F 
FC 631 : CREATOR'S PHD INTO THE PQB. THE FOLLOWING ASSUME STATEMENTS BUARANTEE THAT 
FC 6 g : WE CAN SAFELY PERFORM THIS with A SINGLE MOVC3 INSTRUCTION. 
FC 634 ASSUME PQBSS_MIN_CLASS EQ PHDS$S_MIN_ cL LASS 
FC 635 ASSUME PQBS$S-MAX-CLASS EQ PHDSS- MAX” CLASS 
FC Ob : ASSUME POBSR-MAX-CLASS EQ <POQBSR_MIN_ EP Ags + PQB$S_MIN_CLASS> 
FC 637 ASSUME PHDSRIMAX-CLASS EQ <PHDSRe “MIN-CLASS + PHD$S_MIN~CLASS> 
55 00000000'GF 00 FC 639 MOVL  G*CTLSGL_PHD,RS GET CREATOR'S PHD ADDRESS 
2 03 640 MOVC3 a<PHDSS MIN_CLASS+PHDSS fax _CLASS>,= 
0114 ¢ 05 641 PHD$R_MIN_CCASS(R5),~ 
50 A9 308 b4¢ POBSR™ “MIN-CLASS(R9) 
0100 8F 28 30h 644 MOVC3 #PQB$S_DDSTRING,- 
06C8 C9 00000000" 9F OF 649 a#P10SGT_DDSTRING,PQBST_DDSTRING(R9) ; DEFAULT DIRECTORY 
16 $49 3; Move CLI and CLI table information it Pl space in one fell swoop: 
16 648 ; CTLSGT_CLINAME => PQBST_CLI_LN 
16 649: CTLSGT-TABLENAME -> POBST-CLI~ NAB a 
16 650 : CTLSGT-SPAWNCLI => PQB$T-SPAQN_CLI Optional 
16 63 : CTLSGT~  SPAWNTABLE => POBST~SPAWN~ TABLE Optional 
1 $3 ASSUME PQBST_CLI_TABLE €Q <PQBST_CLI_NAME + POBSS_CLI_NAME> 
16 654 ASSUME PQBST-SPAQN_CLI £Q <PQBS$T-CLI-TABLE + PQB$S-CLI~TABLE> 
16 é 5 ASSUME PQB$T~SPAWN-TABLE EQ <PQBS$T~SPAQN_CLI + POBSS-SPAQN_CLI> 
3¢ 1g 33 MOVZWL #<POBss. CLI_NAME += ; ASSUME WE'LL MOVE ALL FIELDS 
1 8 QB$S~CLI-TABLE+- 
17 65 atte SPAQN_CLI+- 
17 9 PQB$S~SPAWN-TABLE>,- 
08°30 geeo t 0 16 BBS oe cey.c CLISPEC ,STSFLGCAP) ,1438 PASSING ON CL1 SPECIFICATION? 
4 5 MOVZWL a<hass $5_CLI_NAME+- ;°NO, ONLY MOVE FIRST TWO FIELDS 
50 0120 ef : 
0 2 6 
00  00000000'9F 3 
0 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE SEP=1984 AX/VMS Macro v04-00 P 14 sy 
v04-002 EXESCREPRC = CREATE PROCESS SYSTEM SERVI 18: -SEP- =}384 83: 39:38 SYS.SRCISY SCREPRC.MAR; 3 wo vO 
D re POBSSTSPAUNCTABLED,= | "ALLOCATION 
0088 C9 0240 BF t3 PaB$T_CCI_NAME(R9) vite IN THE POB 
A 75 POPR = #*MCRO,RIRZRS.RGRS> ; RESTORE MOVC REGISTERS 
46 A9 00 900000" 3F oF %0 i: MOVB @#CTL$GB_MSGMASK,POBSB mSGMASK(R9) ; USE CREATOR'S MESSAGE FLAGS 
48 a9 = 00 D ; , MOVL § @#CTL$GL“UAF "TLAGS. POBSL_UAF FLAGS (RO) ; AND FLAGS FROM UAF RECORD 
4 4 : ESTABLISH STATUS FLAG SETTINGS FOR PROCESS 
58 30 AC 00 0345 681 1458: movL STSELG(AP), RB GET STATUS FLAG ARGUMENT 
50 12 rf FF 4 6 : Extdv # TSFLGCNT. VAS32-STSFLGENT> RB RO i oo TEST MBZ FIELD 
50 0000'8F 3 0 684 MOVZWL #5S$_IVSTSFLG,RO ; ERROR, INVALID STATUS FLAG ARG 
O4ER 31 3 ‘ 5 146$: BRW ABORT + ABORT CREATION 
4C Ad 58 D0 3g 6 $ 1508: MOVL = RB, POBSL_CREPRC_FLAGS(R9) ; STORE FLAGS IN PQB 
D4 035¢ 688 CLRL = R? ; iniTIALiZe INDEX FOR SCA 
57 58 O& 57 EA 3f 689 160$: FFS R7 ,WSTSFLGCNT,R8,R7 > FIND AN ACTIVE STATUS FLAG 
5 13 0363 690 BEQL $ + NONE, FINISHED WITH SCAN 
51 FC96 CF47 «03E «(0365691 MOVAW STSPLGTBLER7I, R1 + POINT TO TRANSLATION ENTRY 
50 81 98 0368 69¢ CVTBL  (R1)+,RO : GET PRIVILEGE BIT NUMBER TO CHECK 
OF 1 36 69 BGEQ  165$ ° : NEGATIVE MEANS POSSIBLY NOT PRIVILEGED 
50 FF BF 9 70 «694 CMPB es #=1,RO 
16 «1 74 695 BEQL «1708 ; NO PRIVILEGE REQUIRED 
58 OD £6 69 TSTL = R11 
a 78 «69 BEQL 1708 ; NO PRIVILEGE REQUIRED FOR SUBPROCESS 
50 50 07 Q EF O37A 69 EXTZV 10.8 RO : GET THE PRIVILEGE BIT NUMBER ONL 
08 6C B4 0 O37F $9 165$: BBS O:sPB8t Tino crs). 170$ : THE CREATOR PROCESS MUST altAve PRIVILEGE 
50  0000'8F ic 84 00 MOVZWL A368 N Tv,RO : INDICATE NO PRIVILEGE ERR 
0484 31 3 9 101 BRW : AND ABORT NPROCESS CREATION’ 
50 61 98 bc 703 170$: CVTBL (R1),R0 : GET BIT NUMBER IN STS 
4 F 704 BLSS  180$ : NOT NEEDED IN PCB 
00 24 AA 20 E2 0391 705 BBSS RO,PCBSL_STS(R10),180$ ; SET STSFLG IN NEW PCB 
5 D6 9 A 180$: INCL R7 3 wext BIT 
C4 «11039 f BRB 160$ + CONTINUE SCAN 
9A u 3 190$: : DONE WITH STSFLG 
9A £10 : MISC PQB FLAGS 
44 49 B4 O39A ar ° CLRW POQBSW_FLAGS(R9) s INITIALIZE THE FLAGS 
04 30 AC 08 E1 0390 71 BBC #PRCSO_IMGDMP, STSFLG(AP) .195 
44.09 01 AB i gis vane BISW  #POBSM~IMGDMP,POBSW_FLAGS(R9) ; REQUEST IMAGE DUMP 
16; : 
af : CHECK FOR MAXIMUM ALLOWED DETACHED PROCESSES 
5 p f § - TSTL = RV 
1 0 BEQL 2008 T DETACHED 
0 204 00 AA , PCB_IBN = <laPCBSV InteR>e<tapcaiv.8 _BATCH>+<1@PCBSV_NETWRK> 
24 AA 02204000 p AA BITC gre _1BN,PCBSL_STS(R10) 
é g 20 ; NO CHECK ON NETWORK, BATCH, OR INTERACTIVE 
35 9080 CA D 4 MOVL CBS$L_JIB(R10) RS ; THE JIB OF NEW PROCES 
8 9 f 5 MOVL pC SL-JIB(R4) RZ ; THE JIB OF PARENT PROCESS 
: : BNE : 5 : °F "WO JIB = WE ARE BOOTING 
CO 727 2008: BRW 40$ + BRANCH AID 
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7),° ; DETACHED PROCESS LIMIT 
5) ; PROPAGATE THE int ITs 
* ; MAX PROCESS LIMIT 


I 
I 
I 
I 
I 
. 
” R1,R2,R3,R4,R9, R10, R11> 

; PROCESS INDEX = AFTER NULL AND SWAPPER 


carne PCBVECCR9],R10 ; GET A PCB 
geSCRS6L -PCBVEC IS IT NULL PROCESS PCB 


$L_OWNER(R10) : IS IT SUBPROCESS 


B 

0$ 

CBSV NE TWRK PCBSL_STS(R10) 2208 DON: T COUNT NETWORK JOBS 
BSL JIB(R105,R11 ~ JIB OF PROCESS BEING CHECKED 

iB 5 vUSERNAME J1BST. uséeNane(R7) OBST USERNAME (R11) 

; NOT THE SAME USER 

1 
C 
0 
H 
” 


2,R 
PL 
$ 
1 
if 
Pp 
< 
Pp 
2 
6 
: 
0 


MBC BRVYVDWNVB DNV BVSN VUWAOSHO BRBWBVe ccc ce 
oa. 


$ U 
i ONE a TOTAL JOB 
aPcesv INTER>+<lapcasi _BAT 
8_1B,PCB$L_STS(R10) 
$s" ; INTERACTIVE OR BATCH 
: ONE MORE TO COUNT AGAINST DETACHED 
SGL_MAXPIX,R9,210$ 
<RO;R1,R2,R3,R4,R9,R10,R11> 
psu. MAXJOBS(R7) ,R5 
’ : NO LIMIT 
$ ; OVER LIMIT (INCLUDING THIS PROCESS) 
J1B8u. MAXDETACH(R7) ,RS 
: NO LIMIT 
RS_R6 
46s : OVER LIMIT (INCLUDING THIS PROCESS) 
#SS$_EXPRCLM,RO 
aBorT 
IPL$_SYNCH 
LSB 
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v04=002 ESTABLISH QUOTAS FOR NEW PROCESS ae : SYS. SRCISYSCREPRC. MAR; 3 (1) V 
4 Hi -SBTTL ESTABLISH QUOTAS FOR NEW PROCESS 
4 : 
4 i : : PROCESS QUOTA BLOCK 
4 £08 ; 
4 77 Py Cas nwa em wren an ara seme ee wee we ae ee Se ee on Sm On ee we ee em mw oe ee ea ee 
ffs 
450 7 ; : THE PROCESS QUOTA LIST, IF SUPPLIED, HAS THE FOLLOWING STRUCTURE 
450 783: EACH QUOTA IS INTRODUCED AND IDENTIFIED BY A CODE BYT PaLs_ 22222, 
4 f 4 ; WHICH IS FOLLOWED BY A P ONGUORD CONTA RING THE QUOTA O ALUE 
450 7 $ : THE QUOTA VALUES SUPPLIED ARE MAXIMIZED WITH THE REQUIRED MINIMUM 
450 787: VALUES AND REPLACE TH DEFAULT VALUE FOR EACH SP PECIF IED QUOTA. 
0450 788: ONLY IF THE PROCESS CREATION IS SUCCESSFUL ARE THE DED UCTIBLE 
O45 189 ; QUOTAS SUBTRACTED FROM THOSE OF A UBROCESS- CREATING A DETACHED PROCESS. 
450 791: IF DUPLICATE QUOTA ENTRIES ARE FOUND, THE LAST ONE ENCOUNTERED IS 
45 136 : THE ONE THAT IS USED. 
beg San? 
045 795 QUOTALIST: ; 
1F BB 0450 79 PUSHR #*M<RO,R1,R2,R3,R4> ; SAVE REGISTERS FOR MOVC 
38 «628 «0452 «79 MOVC3 #<<PaL$. én GTH=1>*4>,- ; COPY DEFAULTS TO POB 
00000004 % 0494 198 PaL SAL DEF AULT s4,- ; AS ASSUMED VALUES FOR 
BA 0458 800 POPR #*M<RO,R1,R2 RS R4 : RESTORE REGISTERS 
55 6C AG 00 0450 801 MOVL  PCBSL_PHD(RGS, FOR SWAPPER POINT TO REAL PHD SINCE NO 
00000000°EF 60 vi D1 0461 69 CMPL PCBSL“PID(R4). SCHSGL. SwP PPI 1D IS IT THE SWAPPER 
7 13 0469 80 BEQL : YES, USE PCB POINTER TO PHD 
55 00000000°9F 00 046 04 MOVE § @#CTLSGL_PHD,RS : ; GET POINTER 10 PHD WINDOU IN 
57 1C Ac 09 47 06 5$: MOVL § QUOTACAP) ,R7 : GET POINTER TO QUOTA LIST 
28 13 047 0 BEQL NOQL IST + NONE SPECIFIED 
47 08 10S: IFNORD #1,(R7),30$ : CHECK FOR ACCESSIBILITY 
56 87 9A O047E 809 MOVZBL (R?)+,R : GET CODE 
04 1 810 ASSUME PQL$ LISTEND EQ 0 ; 
1D 13 1 811 BEQL L : DONE IF PQL$_ENDLIST 
483 1 IFNORD #4, (R7),30$ : CHECK QUOTA FOR ACCESSIBILITY 
OF ‘ 8} 4 9 13 cnPy R “C80} 3 LENGTH : CHE CK K FOR. LEGAL QUOTA NUMBER 
08 A946 b8 4 15 MOVL (R7)+,PQBSL ‘saneecnticl beRed INTO PQB QUOTA LIST 
50 000 Ee i 433 i$ 20$ SCV ZUL #SS$_IVQUOTAL,RO : 60 Ar IDS SUOTA nets wheaigtans 
O3A5 3 49h 18 7‘ BRW ABORT : : SIGNAL ERROR. CONDITION AND ABORT CREATE 
0432 31 490 9 30$: BRW ACCVIO ; ABORT WITH ACCESS VIOLATION 
56 COO 3C°EF DE ig § eumacda | POLSAL_MIN+<4*PQL$_LENGTH> wy wed otareR 70 BASE OF MIN VALUES 
990007 AD DE 046A 4 MOVAL <POBSL “ASTLM+ <4e<POL eT ee ok ce R3 ; SET BASE OF QUOTA VALUES 
7 3680 of 6 v4 3 nove PCBSt qibteiOy ade . : eft COUNT FOR. stan INFORMATION BLOCK 
’ 2 Be 48 $ CLRL Rs - : INDICATE UNRESTRICTED QUOTAS ALLOWED 
Q D3 48 ; st R11 ; Is it A SUBPROCESS 
489 0 IFPRIV DETACH, 10$ : UNRESTRICTED IS OK 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE 16-SEP-1984 01:50:48 VAX/ViKS Macro V04-00 Page 19 
v04=002 ESTABLISH QUOTAS FOR NEW PROCESS 14-SEP-1984 09:21:06 (CSYS.SRCISYSCREPRC.MAR; 3 (1) 
38 A2 30 pt BA 945 CMPL RQ. J1BSL_PGFLQUOTA(R2) : IS IT WITHIN LIMITS 
4 B 4g BLEQU 5 : YES 
Q 38 A2 OD C 4 MOVL JIBSL_PGFLQUOTA(R2),RO : LIMIT TO CURRENT VALUE 
A? 2 dd ©05¢ 48 5$: MOVL  RO,JIBSL_PGFLQUOTA(R7) : SET PAGE FILE QUOTA 
C A? D (8 94 MOVL  RO,JIBSLIPGFLCNT(R7) — ; AND COUNT 
0 cC 30 10$: RSB > NEXT QUOTA 
SCD $8¢ QPRCLM: ; SUBPROCESS QUOTA 
5B pS «(05¢D) O95 TSTL = R11 : IS THIS A DETACHED CREATE? 
12 13 O5CF 954 BEQL 10s : BR IF NOT 
52 OD 301 955 TSTL = + UNRESTRICTED QUOTAS? 
OA 1 D3 996 BEQL 6sS5$ + YES 
46 A2 0 81 303 93 CHP RO, J1BSW_PRCLIM(R2) : Is _iT WITHIN LIMITS 
50 46 a2 80 spp «959 MOVW  JIBSW_PRCLIM(R2),RO : LIMIT TO CURRENT VALUE 
46 a7 50 BO OSDF 960 5$: MOVW RO,JIBSW_PRCLIM(R7) + AND LIMIT 
05 SE 361 10$:  RSB : NEXT QUOTA 
5E4 308 QTOELM: ; TIMER QUEUE ENTRY QUOTA 
58 05 5E4 0-964 TSTL = R11 : IS THIS A DETACHED CREATE? 
1g 1 O5E6 965 BEQL 108 : BR IF NOT 
eB eat 4) peeacinatasome: 
34 A2 50 81 OoeC 968 CHPW RO, J188W_TOCNT(R2) ; Is 17 WITHIN LIMITS 
0 3% Ag BO 05F2 970 MOVW JIBSW_TQCNT(R2),RO : LIMIT TO CURRENT VALUE 
4a? 50 80 O05F6 971 SS: MOVW RO, JIB$W_TQCNT(R7) ; SET TIMER QUEUE QUOTA FOR JOB 
6 A7 50 BO bece 378 MOVW RO, JIBSW_TQLM(R7) : AND LIMIT VALUE 
05 SFE 903 10$:  RSB : NEXT QUOTA 4 
Sere 975 QwSQUOTA: : WORKING SET QUOTA PI 
48 10 FF 976 BSBB =~ MAXWSCNT t LIMIT TO MAX WORKING SET COUNT PQ 
50 08 AS Ad 0601 97 ADDW PHD$W WSLIST(RS).R : ADD BASE OF WORKING SET LIST PQ 
18 AS 50 B1 0605 978 CMPW RO PHO$W_WSQUOTA(RS) |; CHECK FOR IN LIMIT PQ 
09 1F 0609 979 BLSSU -:10$ : YES, CONTINUE PQ 
32 D5 0608 980 TSTL t UNRESTRICTED DETACHED PROCESS? PQ 
05 13 060D 981 BEQL 108 : YES, USE AS I PQ 
50 18 AS 01 Al 060F 986 ADDW3 #1, PHDSW WSQUOTACRS) RO : ELSE FORCE TO CORRECT MAXIMUM Pa 
63 50 08 AS AS 0614 983 10S:  SUBW3 PHOSW_WSCIST(R5),RO,(R3); REMOVE BIAS PQ 
05 69 984 RSB : NEXT QUOTA pd 
6A 9 6 QWSEXTENT: : WORKING SET EXTENT Pa 
0 10 061A 9 BSBB  MAXWSCNT + LIMIT TO MAX WORKING SET COUNT Pa 
30 a9 «©«50~—Coé# 61 3 3 CMPL RO. POBSL_WSQUOTA(R9) : CHECK AGAINST QUOTA PQ 
i: BGEGU : MORE, USE AS IS Pd 
50 30Aa9 00 06 9 MOVL PQBSL_WSQUOTA(R9),RO  ; MAXIMIZE WITH WSQUOTA Pd 
50. 6008 AS «OAO O06 991 5$: ADDW  PHDSWWSLIST(RS) RO : ADD BASE OF WORKING SET LIST Pd 
1605 50 81 A 936 CMPW RO, PHOSW_WSEXTENT(RS) ; CHECK FOR IN LIMIT PC 
F 99 BLSSU ss: 108 : YES, CONTINUE Pd 
: 05 6 994 TSTL OR + UNRESTRICTED DETACHED PROCESS? PC 
0 1 5 BEQL 108 : YES, USE AS IS PC 
50 16a5 01 Al 06 ADDW3 «#1, PHD SW WSEXTENT (RS) RO: ELSE FORCE TO CORRECT MAXIMUM PC 
63 50 O8 AS A 9 997 108:  SUBW3 PHOSW_WSCIST(R5).RO,(R3); REMOVE BIAS PC 
0 6 : RSB > NEXT QUOTA PC 
63F 1000 QWSDEFAULT: : WORKING SET LIST DEFAULT PC 
0B «10 F 1 8 BSBB = MAXWSCNT : LIMIT TO MAXIMUM WORKING SET COUNT PC 
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RO ,PQBSL_WSQUOTA(R9) 
PQBSL_WSQUOTA(R9) , (R3) 


RO, SGNSGL_MAXWSCNT 
SGNSGL_MAXWSCNT ,RO 


IBSW_ENQCNT(R2) 


W _ENQCNT(R2) ,RO 
1B$W_ENQCNT(R7) 
IBSW_ENQLM(R7) 
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deals? QUOTA 
IZE_ WITH WSQUOTA 
QUOTA 


c 
mn 


SQUOTA OR DEFAULT TO MAXIMUL SIZE 
WITH MAX in WS_LIST LENGTH 

ITHIN LEGAL RANGE 

O LEGAL VALUE 
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UE QUOTA 
a DETACHED CREATE? 
TRICTED QUOTAS? 
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¢ WITHIN LIMITS 
ae TO CURRENT VALUE 
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LEGAL TO EXCEED Qu i =SEP=-1984 t 89: 30: be Heys SRCSYSCREPRC MAR; 3 . ap 


ps .SBTTL OVERCHECK = CHECK FOR LEGAL TO EXCEED QUOTA 
: FUNCTIONAL DESCRIPTION: 
OVER 


; CHECK CHECKS TO SEE IF THE PROCESS BEING CREATED IS A DETATCHED 
; CESS. _IF A DETATCHED PROCESS IS BEING CREATED, CONTROL a 
: INLINE. OTHERWISE THE CREATE IS ABORTED BY BRANCHING TO ABORT 

3 H THE STATUS CODE SS$_NOQUOTA. 

; INPUT PARAMETERS: 

: R4 - PCB ADDRESS OF CURRENT PROCESS 

; R5 = ADDRESS OF PHD FOR ey ge PROCESS (WINDOW IN P1 SPACE) 

H R9 = ADDRESS OF PROCESS QUOTA BLOCK 

; R10= ADDRESS OF PCB FOR NEW PROCESS 

3 R1ii=- UIC FOR CREATED PROCESS (0 => SUBPROCESS) 


OVERCHECK: 
58 TSTL 


) R11 
os 1 
50 0000'8F 3 
018C 


BNEQ 10$ 
MOVZWL 9 #SS$_EXQUOTA,RO 
BRW ABORT 


CHECK FOR SUBPROCESS CREATE 
YES, IGNORE OVER LIMIT 

SET ERROR STATUS CODE 

NO, ABORT CREATE 


RSB ; RETURN 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE 16=SEP=1984 01:50:48 VAX/VMS M v04-00 Page 2 
ribet PROCESS THE ITEM LIST 19-SE 5-1 382 83: 1:06 CSYS.SRCISYSCREPRC. MAR; 3 . in 
6 i .SBTTL PROCESS THE ITEM LIST 
1055 : 
1 36 : PROCESS ITEM LIST 
6 2 3 
6 1 8 P (ee oe ee oe oe (ee ee RE em me ee we ee Poe en ce me me we > ee rh em ee eo 
ga 1000 
685 1 $1 : THE PROCESS TEM LIST, IF SUPPLIED, HAS THE FOLLOWING STRUCTURE 
685 1 6¢ : EACH ITEM HAS A 2 LONGWORD FIELD. <THE FIRST yONGWORD HAS T 
685 1063 : SUBFIELDS, A WORD OF ITER LENGTH, FOLLOWED BY A CODE WORD PRES. 22227, 
89 2 ! 6 3 WHICH IS FOLLOWED BY A LONGWORD tourainine HE ITEM VALUE. 
0685 1066 : 
0685 1903 : IF DUPLICATE ITEM LIST ENTRIES ARE FOUND, THE LAST ONE ENCOUNTERED IS 
82 2 1998 3 THE ONE THAT IS USED. 
Mat 1070 : NOTE THAT THE PAGE FILE INDEX AND CHARACTERISTICS WILL BE TREATED AS 
0685 1071 : ADVICE ONLY. IF THEY ARE INVALID OR CANNOT BE MET (NO FILE AVAILABLE) , 
pe82 1978 3 THE NORMAL ALGORITHM FOR ASSIGNING PAGE FILES WILL BE USED IN SHELL. 
0685 1074 ° ASSUME PRC$_PGFLCHAR EQ 1 
0685 1075 ASSUME PRCS-PGFLINDEX EQ 
0685 1076 ASSUME PRCS-INPUT_ATT EQ 
0685 1077 ASSUME PRCS “OUTPUT. ATT EQ. 4 
0685 1078 ASSUME PRCS-ERROR_ATT EQ 5 
Wet 1980 iTEMLIST: 
0D 6c pI 0685 1081 CHPL (ap) ,sTmst. ARG : WAS THE ITEM LIST ARGUMENT SUPPLIED? 
en 1088 IFNORD #47ITMLST(AP) ,40$ ; WE READ THE ITEMLIST POINTER 
57 34 AC 009 0691 1084 MOVL  ITMLSTCAP), : GET THE POIN NTER 
50 13 0695 1085 BEQL NO_ITMLST > NONE SPECIF 
0697 1086 10S: IFNORD #47(R7),40$ : CAN WE READ THe CODE AND LENGTH 
50 (87 3¢ 69D 10 MOVZWL (R?)+,RO : GET LENGTH 
56 «687)0«— 3C-s«C06A0 «1088 MOVZWL (R7)+.R6 > GET THE 
42. 13 OeAs 1089 BEQL NO_ITMLST : END OF THE LIST 
06a5 1090 IFNORD #47(R7) ,40$ : CAN WE READ THE ITEM VALUE 
05 10 6AB 1091 esBBOs«208 : PROCESS THE ITEM 
57 04 CO O6AD 1 3 ADDL #4,R7 
e511 680 1093 BRB 10$ > NEXT 
6B2 1095 20$: CASE  R6,LIMIT=#1,<- 
6B2 1 % 1TM_PGFLCHAR, - 
6B2 109 ITM-PGELINDEX  ~ 
682 1098 ITM INPUT_A 
6B2 1099 ITM~OUTPUT itt. 
68 1 0 1TH ERROR iM, = 
50 00000000'°8F 00 6¢ 11 é MOVL sss BADPARAM, RO 
0176 «(31 6¢7 1 ; BRW ABOR 
0205 «(31 ota 1 5 40$: BRW ACCVIO 
CD 1107 ITM_PGFLCHAR: : PAGE FILE CHARACTERISTICS 
58 AA 67 80 (> 11 : MOVW  (R7),PCBSW_PGFLCHAR(R10) 
601 11 RSB 
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CREATE PROCE 
PROCESS THE 
6p 1 

De 1 
oH 
2p 1 

do? 1 

D 607 1 
0 rt 1 
dc 1 

4! 1 

oH 
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YY 

0 ‘) 3 
0 PES 1 
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6E7 1 


YSTEM SERVICE 
LIST 


ITM_PGFLINDEX: 
MOVB 
RSB 

ITM_INPUT_ATT: 
MOVL 


ITM_OUTPUT_ATT: 
MOUL 
RSB 

ITM_ERROR_ATT: 
MOVL 
RSB 


NO_ITMLST: 


(R7) ,PCBSB_PGFLINDEX(R105 
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:06 (CSYS.SRCISYSCR 


; PAGE FILE INDEX 


; SYSSINPUT ATTRIBUTES 


(R7) ,POBSL_INPUT_ATT(R9) 
(R7) ,PQBSL_OUTPUT_ATT (R95 


(R7) ,PQBSL_ERROR_ATT(R9)- 


; SYSSINPUT ATTRIBUTES 


; SYSSINPUT ATTRIBUTES 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE | SEP-19 AX/VMS Macro V04-00 Page 24 
v0e=002 ACTIVATE NEW PROCESS ~$Eb= 138s Bossi ide PANCMeS Maceo yee cOo es «Page 2, 
Se? i} -SBTTL ACTIVATE NEW PROCESS 
6&7 1131: ACTIVATE NEW PROCESS 
ae 
eee 1134 ACTIVATE: 3 
4C AA 9 D E7 1135 MOVL R9,PCBSL_PQB(R10) 3 fig! ope PCB TO yg tt QUOTA BLOCK 
54 A OD 6—B 11 § MOVL R 6 RG ; PCB ADDRESS OF NEW PROCESS 
6A 0 54SCOsCéOB EE 11 MOVL R4, (R10) : BUILD QUEUE HEADER 
04 AA 4 D 6F 11 8 MOVL 4,4(R10) ; FOR PCB 
6F 11 10$ DSBINT w*{0001 ; BLOCK SYSTEM EVENT REPORTING 
er 16 of 1140 JSB GA MPGSCALCSWAPSIZE ; GET THE SIZE IN R2 OF MINIMUM SWAP AREA 
26 1141 CLRQ 3 INDICATE NO CURRE SPACE 
00000000 ' GF 18 7 1176 JSB G*MMGSALLOCSWPAREA ; ALLOCATE INITIAL SWAP SPACE 
8 1 70B 114 BGEQ ; IS SWAP SPACE AVAILABLE 
50 sae» f HE op 1120 pee. £358. INSSWAPSPACE ,RO 3; N 
0 A4 50 CE $918 1128 15$: MNEGL Roe PCBSL_WSSWP(R4) j ved a SWAP rit TYPE VBN/INDEX 
CAS 52 DO 0719 114 MOVL peere L  SWAPSIZE CRG) ; SAVE MAXIMUM ALLOWABLE og SIZE 
56 FC AD DO 0O71D 1148 MOVL nit R6 ; GET PCB ADDRESS OF CREATOR 
55 6C AG DO 07 l 1149 MOVL SCBSL witghiy R5 ; AND EXTRACT HEADER ADDRESS 
0725 1151 ; Look for a free PCB slot (i.e. one pointing to nullpcb). Start at the stot after | 
4 2 1126 ; last PIX allocated and perform a round-robin scan. 
53 goooggoo' sr 3 $9 5 1154 , MOVZWL SCHSGL_MAXPIX,R3 SAVE MAX PIX TO TEST WHEN TO ee wy” 
53 01" C3 O72c 1155 SUBL3 S$*#<SCASC_SWPPIX+1>,R3, Ri * LOOP COUNTER IS MAX LESS SWAPPER AND NUL 
57 00000000‘ EF dO 730 1156 MOVL ScHseL _PIRLAST, R7 3 SET T INDEX FOR PIX SEARCH TO LAST ALLOCATED. 
58 epee | DE ae 1157 MOVAL SCHSGL~ -NULLPCB, *R8 ; Swe ta PCB ovarae (NULL PROCESS) 
D6 07 1158 20$: INCL R7 ; MOVE TO THE NEXT PIX IN THE SEARCH 
53 57 D1 74 1159 CMPL R7, R3 3; IS THE 1 ie al te'c THAN THE MAXIMUM 
03 15 0743 1160 BLEG )~=ss2 1 > BRANCH I $ OK 
57 1" pod 745 1161 MOVL S*#<SCHSC_SWPPIX+1>,R7 ; SET TO Hat SLOT AFTER SWAPPER 
00000000'FF47 38 } oe 1166 21$ CAP. R88 ascHscce “PCBVECLR?J 3 oie oa fiat +e POINTING TO NULLPCB 
9 $j i ie 1164 SOBGTR R1,20$ : OCCUPIED, TRY ANOTHER 
oe 1198 : Error, deallocate the paging file space 
53 50 08 18 EF 22 1168 22$: EXTZV soviet #8,R0, R3 ; GET PAGE FILE ALLOCATION IN | 
ses Y 2 EF O75A 116 EXTZV 4.RO,RO ; set oT OF ALLOCATION 
51 4 75F 1170 MOVL 2,R SIZE OF tty AP SLOT TO DEALLOCATE 
53 00000000 'FF4 D 762 #1171 MOVL aC MMGSGL_PAGSWPVCCR3), nb wit ADDR OF PAGE FILE CONTROL BLOCK 
00000 00 GF 16 7A 1126 J$B GOMMGSDEALLOCPAGF IL 3 FREE UP TH 
0 77 1127 BRW 0$ ; NO FREE SLOTS AVAILABLE 
00000000 ' EF 00000000‘ EF B1 77 1175 S0$: CMPW Scuseu PROCLIM, SCHSGW_ tery CHECK FOR MAX PROCESSES 
DS «15 A 1176 BLEQ 1f YES AND ABORT CREATE 
, 1128 : Update global data and create the internal and external process identifiers. 
aca 15 34 37 b0 7 11 ? MOVL R7,SCHSGL_PIXLAST ; SAVE NEW PIX AS LAST ALLOCATED PIX 
00°E B6 4 yy INCW SCH GW_ ROCCNT ; COUNT THIS PROCESS 
78D (11 ¢ 3; Note that the fol loutng cede assumes that caller's of Create Process 
78D 1184 ; know what hey oF eee Bal n the sense that there will never be more than 
78D 1185 ; one of the bits INTER, BATCH, and NETWRK set at the same time. 
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v04-002 ACTIVATE NEW PROCESS 14-SEP-1984 09:21:06 ([SYS.SRCISYSCREPRC.MAR; 3 a 
78) 11 
58 DS 78D 11 5 TSTL ay 
16 1 78F (11 8 BEQL $ - IT 1§ A SUBPROCESS = DON'T COUNT IT 
0624 AA 19 €1 0791 11 BBC #PCBSV INTER PCBSL_STS (RIO) 3 
0 000000" FF AS £36 11 INCW  SYS$GW"IJOBCNT . ONE MORE INTERACTIVE JOB 
06 24 AA OF £1 07 ¢ 1191 318: BBC #PCBSV-BATCH, PCBSL_STS(R10) , 33$ 
a H J 
OOO000000'EF 86 O7A1 11 INCW SYS$GW"BJOBCNT ONE MORE BATCH JOB 
wy 94 
7A7 1195 ; NOTE: The call to EXESIPID_TO_EPID checks to make sure the IPID is valid, 
7A7 1138 3 therefore we must set the ID in the new PCB and store the address 
te 1136 ; of the new PCB in the PCBVEC before we call EXESIPID_TO_EPID. 
QO000000'FF47 SA 00 O7A7 1199 OVL R10,aSCHS$GL pcaveCt R74 ; SET POINTER TO PCB IN VECTOR OF PC 
50 00000000'FF47 3& O7AF 1 00 MOVAW asCHSGL_SEQVEC R7),RO  : GET ADDRESS OF SEQUENCE NUMBER FOR SLOT 
60 86 07B7 1201 INCW (RO) : NEXT SEQUENCE NUMBER FOR THIS PROCESS 
08 1 7B9 1 0¢ BGEQ 35$ ; BR IF IN RANGE (POSITIVE PID) 
60 84 O7BB 120 CLRW (RO) ; ELSE, RESET SEQUENCE NUMBER 
62 AA 60 BO O7BD 1204 35$: mOVW (RO) ,PCBSL P1d+2(R10) + SET SEQUENCE NUMBER 
60 AA 57 BO O07C1 1205 MOVW  R7, PCB$L_PTD(R10) ; AND PIX TO FORM COMPLETE INTERNAL PID 
60 AA dO 90765 1206 MOVL PCB$L_PIB(R10),RO + LOAD THE INTERNAL PID TO PASS TO ROUTINE 
00000000’ EF 16 769 1207 JSB EXESIPID_TO_EPID : CONVERT IPID TO EPID, RETURN EPID IN RO 
4 AA 50 D ocr 8 MOVL RO, PCBSL-EPTD(R10) : STORE THE EXTENDED PID 
5B OS Oops 1210 TSTL = R11 ; DETACHED CREATE? 
OA 13 0703 1211 BEQL 38% : BR IF NOT 
50 0080 CA D0 O7D7 1 1 MOVL  PCBS$L_J1B(R10),RO . GET JIB ADDRESS 
54 AO 60 AA DO O7DC 121 MOVL PCBSL~PID(R10),JIBSL_MPID(RO) ; AND SET ROOT PID FOR PROCESS TREE 
5 4 9A O7E1 1214 388: MOVZBL #PRIS~TICOM,R2 ; SET PRIORITY INCREMENT CLASS 
00000000" EF if 7E4 1215 JSB SCHSCASE : MAKE PROCESS EXECUTABLE, NON-RESIDENT 
B DS O7EA 1 16 TSTL = R11 : TEST FOR DETACHED CREATE 
0D 12 O7eC 121 BNEQ 40$ ; BR IF CREATING DETACHED PROCESS 
42 A6 B6 O7EE 1 18 INCW PCBS$W_PRCCNT(R6) ; OTHERWISE ACCOUNT FOR SUB-PROCESS 
5C AS) 6S. «OOF. «121 TSTL  PHDSL-CPULIM(RS) ; CHECK FOR NO CPU LIMIT 
05 «(1 7F4 1 20 BEQL 40% ; NO Limit DONT DEDUCT 
SC AS 618 AD C2 or6 1 “a SUBL § PQBSL_CPULM(R9) ,PHDSL_CPULIM(R5); OEDUCT CPU TIME LIMIT 
50 04 AE i 7B MOVL 4(SP) ,RO ; GET EPID RETURN VALUE ADDRESS 
7. Y 4 1 1225 BLSS 0$ : SYSTEM SPACE ADDRESS 
6 3 1 $ 42s: ENBINT ; RESTORE IPL 
60 64 AA 00 0806 1 45$: MOVL  PCBSL_EPID(R10), (RO) + RETURN EXTENDED PID FOR CREATED PROCESS 
50 0000'8F C 080A 1 50$: MOVZWL #SS$_RORMAL,RO : SET NORMAL COMPLETION STATUS 
oF RET : AND RETURN TO CALLER 
10 1 ? 55$: ENBINT ; RESTORE IPL 
FS) 1 : BRB 50$ : AND EXIT 
50 0000'8F  3¢ 15 1234 60$ MOVZWL #SS$_NOSLOT,RO ; SET ERROR CODE FOR NO SLOT AVAILABLE 
1A 1235 re ENBINT zs : ENABLE SYSTEM EVENT REPORTING 
21. «11 1D $ Bke ABORT ; ABORT CREATION, EXCEEDED QUOTA 
00000000'EF 50 01 1F 1 708: CMPL § RU. MMGSGL_NPAGEDYN : CHECK FOR IN NONPAGED POOL 
coowoorer OH Rt Le AEM EMcctsa oer tt OO 
D 1 F 1 ty BGEQU . : OUT OF POOL OR INTERRUPT STACK 
60 64 AA OD 1 1242 MOVL PCBSL_EPID(R10), (RO) + STORE EXTENDED PID FOR CREATED PROCESS 
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=SEP=1984 SYS. SRCISY SCRE EPRC.MAR;: 3 (1) 
~SBTTL ABORT PROCESS CREATION 
ABORT PROCESS CREATION AFTER DETECTING ANY ERROR 


> T7,) 
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ABRT2: ; ABORT WITH PCB ONL 
CLRL R9 IROLSATS NO A ALLOCA TED 
; ABORT WITH BOTH PCB AND PQB ALLOCATED 


MOVL _RO,R? t SAVE STATUS CODE 
TSTL = R14. : IS THIS A DETACHED PROCESS CREATE? 
0 BEQL 108 : BR IF 
MOVL PCBSL_ JIB(R10),RO : GET JIB ADDRESS FOR RELEASE 
4 BEQL 10$ : BR IF 
33 BSB8 BXE DEANONPAGED + DEALLOCATE JIB 
FC AD 10$:  MOVL CURPCB (FP) R4 ; GET PCB ADDRESS FOR SURE 
5 0080 ¢4 PCBSL_JIB(R4) FETCH iI ADOR 
3c A2 00000000" SF ADDL  #SwP$t_ eet tie JIBSL APEFLCNT (R2) RETURN PAGE FILE QUOTA 
44 A2. B7 DECW  JIBSW_PRCCNT(R2) + CORRECT SUBPROCESS COUNT 
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50 OOAC CA 208: MOVL PCBSQ_PRIV+ARBSL saat ag Ti ; GET EXTENDED RIGHTS LIST, 


BEQL 30% 
INSQUE (R9) ,@EXESGL_POBBL 
30S: MOVL R7,RO 


BR IF NONE ALLOCATED 

DEALLOCA TE POB TO LOOKASIDE LIST 
RESTORE STATUS CODE 

AND RETURN TO CALLER 


02 BEQL 22$ H 

14 BSBB EX -p ANONPAGED DEALLOCATE RIGHTS LIST 
ee 22$: MOVL R10,R ADDRESS OF NEW PCB 

0 BSBB EXE DEANONPAGED DEALLOCATE QUOTA BUFFER 

3 TSTL Ro ~ ADDR i OF rH IF ANY 
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EXE_DEANONPAGED: 
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SYSCREPRC CREATE PROCESS SYSTEM SERVICE 6-SEP=1 :5 $ Macro v04-00 Page 
ribet MOVSTR = STRING COPY SUBROUTINE 4-5 b=19 38 83: 39:48 $.S SRCISYSCREPRC MAR: 3 . a, 
$ .SBTTL MOVSTR = STRING COPY SUBROUTINE 
1 8 + FUNCTIONAL DESCRIPTION: 
1 : MOVSTR VALIDATES AND COPIES A STRING FROM THE ARGUMENT LIST 
9 1290: TO THE PROCESS QUOTA BUFFER. IF ANY ERROR IS DETECTED, THE 
9 1291: SERVICE CALL IS EXITED VIA A RET INSTRUCTION WITH RO CONTAINING 
3 34 ; THE ERROR STATUS CODE. 
889 1294 : CALLING SEQUENCE : 
3 3 1095 : BSB MOVST 
1 36 ; .BYTE = <MAXI MUM STRING LENGTH> 
9 1297: “BYTE <AP_OFFSET_TO_SOURCE_DESCRIPTOR> 
: 38 ; “BYTE  <PQB oOFFSET. oF DESTINATION> 
08 9 1300 : INPUT PARAMETERS: 
889 1301 : R9 = PQB BASE ADDRESS 
08 9 1 0¢ : a(sP) = MAXIMUM STRING LENGTH 
889 1303 : a(SP)+1 = AP OFFSET TO SOURCE STRING DESCRIPTO 
0889 04 ; a(SP)+2 - POs OFFSET FOR DESTINATION COUNTED STRING 
0889 1 06 : OUTPUT PARAMETERS 
5 AREA IN V U N 
0889 6 SPECIFIED AREA IN POB RECEIVES SOURCE STRING 
0889 1 $9 : COMPLETION CODES: 
0889 1310: SS$_ACCVIO. = ACCESS VIOLATION FETCHING DESCRIPTOR OR STRING 
0889 1 : SS$"IVLOGNAM = INVALID LOGICAL NAME (COUNT OUT OF RANGE) 
Sn 
889 1315 MOVSTR: ; MOVE STRING TO PQB 
55 66 vO 0889 1 18 MOVL (SP) RS : GET BASE OF PARAMETERS 
6E 04 CO 08 ¢ 131 ADDL #4, (SP : INCREMENT RETURN ADDRESS 
g1FO 8F 88 88F 1318 PUSHR  #*M<R4 aS, R6,R7,RB> : SAVE REGISTERS 
§ 85 A 08 3 1319 MOVZBL (R3)* R : GET STRING LIMIT 
5 5 (OA 36 1320 MOVZBL : GET ARGLIST OFFSET 
52° 6043 09 0899 1321 OVL A) ths ,R2 : FETCH DESCRIPTOR ADDRESS 
| 0890 1 é BEQL EX! : NONE, EXIT 
89F 1 1FNORD oa. (R2) ,ACCVIO : MUST BE ABLE TO READ DESCRIPTOR 
56 62 7D OBA 1324 MOVa = (RB) , R6 : FETCH DESCRIPTOR 
56 83 AB 1325 TSTW RG : CHECK FOR NULL COUNT 
¢1 13 O8AA 1 6 BEQL $ MOVEXIT > YES, NULL STRING 
5B 6 B1 BAC 1 CMPW 36, RB : CHECK UPPER LIMIT 0" STRING 
18 O8AF 1 BLEQU + BR IF WITHIN LIM 
50 0000'°8F 3 4 MOVZWL #SS$_IVLOGNAM,RO : SET ERROR CODE 
*) ; AN 
FFB? 31 ; BR ABorT AND ABORT CREATE 
1 ‘ 10$ IFNORD R6,(R7),ACCVIO : CHECK ACCESSIBILITY 
53 65 3¢ F 1 movzwi (RS) RS : GET POB OFFSET 
53 694 C2 1334 MOVA (Ro)ER 1, R3 : COMPUTE ADDRESS IN POQB 
8 36 C6 1335 MOVB (R3)* + SET COUNT FOR STRING 
63 6 oe c9 6 atin 4 MOVC3 Re. (R7), (R3) : COPY STRING TO BUFFER 
O1FO BF BA CD 1 : POPR #*M<R4,RS,R6,R7,RB> + RESTORE REGISTERS 
5 D1 39 RSB : AND RETUR 
50  0000°8F 3¢ bg 1341 ACCVIO: MOVZWL #SS$_ACCVIO,RO ; SET ERROR CODE 
FF66 «31 OBD? = «1342 BRW ABORT : 
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v04-002 ALLOCPQB = Allocate PQB from paged pool 14-SEP-1984 09:21:06 ([SYS.SRCISYSCREPRC.MAR; 3 (1) 
+ } rf: ‘ . SUBTITLE ALLOCPQB = Allocate PQB from paged pool 
DA 46 ; Functional Description: 
DA 1 +3 : This subroutine merely allocates a PQB from paged pool. If the 
DA 1349 ; allocation fails, the process may be put into a resource wait state 
DA 1350: but only after the already allocated PCB is deallocated and IPL is 
+ ! 2] § lowered to zero. 
DA 38 : Input Parameters: 
DA 1 33 : R4_ = Address of PCB of creating process 
DA 1 8 : R10 = Address of chunk of nonpaged pool that will become PCB 
aaa ! 2f 3 of new process. 
Bap A ! 23 : Implicit Input: 
OBA } e : Running at IPLS_ASTDEL as a result of successful PCB allocation 
O8DA 1368 : Ouptut Parameters: 
O8DA 1364 ; 
tw ! rH 3 If allocation is successful 
OBDA $ : R2 - Address of POB 
aoe ! $F : If the allocation fails and the creator waits for resources, 
O8DA 1371: the PCB pointed to by R10 is deallocated and the process 
O8DA 1 ie : is put into a resource wait state. When paged pool becomes 
O8DA 1575 ; available, the process resumes execution at the beginning 
Baa 1328 3 of the service. 
tty} : a : If the allocation fails and resource wait is disabled, 
roa : ee : a simple failure status (SS$_INSFMEM) is returned. 
OBA i $4 : Side Effects: 
BDA 1 : ; RO through R3 are modified 
SBA 1384 
DA 1385 ALLOCPOQB: ; Allocate process quota block 
51 08¢8 BF 3C DA 1 $ MOVZWL #PQBSC_LENGTH,R1 ; Set structure size 
4 DF 1 PUSHL R1 3; Save ronment otge 
50 FA‘AF E €1 1 3 MOVAB B*DEALLOCATE_PC8,RO ; Store address of error action routine 
00000000'GF 1 e5 1 JSB G*EXESALOPAGQAIT 3 Attempt to al locate packet 
1 seo? 8EB 1390 POPL R1 3; Restore request size 
08 50~=C'€E ef 1391 BLBC RO,108 : If low bit clear, no packet allocated 
08 a2. 51 80 Fi 1 3 MOVW R1.PQBSW_SIZE(R2) : Insert size of allocated block 
0D 3 139 MOVZBW #DYNSC_PGB,- ; Insert data structure type 
OA A2 F? 139% PaBSB_ TYPE (R2) : and clear adjacent byte 
05 4 ! 32 10$: RSB 3; and return 
FA 1 39 DEALLOCATE PCB: 
Bh MS BEE 1S SE EPonmncen | Svat BoByatress 
5 2 ra 
5 0 1400 RSB s : Return to error code in ALOPAGWAIT 
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eeeeeeee K 0 
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= 00000028 
naw enan eae sme ome +e 
! Psect synopsis : 
inenaiemetiibimipameianaed 
Allocation PSECT No. Attributes 
00000000 < >» 00¢ Q.) NOPIC USR 
00000000 3 01 ¢ 1.) NOPIC USR 
00000901 ¢ 2305.) 02 ¢ 2.) NOPIC USR 
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mmc, dN 


Assembler run totals 1 6 


The working set Limit was 1650 pages. 

74594 bytes (146 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 969 non-local and 111 local symbols. 
1402 source Lines were read in Pass 1, erees ine 22 object records in Pass 2. 

33 pages of virtual memory were used to define 52 macros. 
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! Macro Library statistics ! 


owen mmeene teem aenewnneeowes $+ 


Macro Library name Macros defined 
-$255$0UA28: CSYS.OBJILIB.MLB; 1 18 
$255$DUA28: CSYSLIBISTARLET.MLB;2 9 
TOTALS (all Libraries) 27 


1034 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSCREPRC/OBJ=OBJ$:SYSCREPRC MSRC$:SYSCREPRC/UPDATE=(ENHS$:SYSCREPRC) +EXECML$/LIB 
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